home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / MyGadgets.p < prev    next >
Encoding:
Text File  |  1994-12-09  |  5.6 KB  |  104 lines

  1. temp <- <primitive 110 1 > "NewObject"
  2. <primitive 112 temp 1        "AtPut, initialize:withArray: " \
  3.     #( #[ 34 81 177 115 34 82 177 116 34 83 177 117 34 84 177 \
  4.  118 34 85 177 119 34 86 177 120 34 87 177 121 34 88 \
  5.  177 122 34 89 177 125 34 48 177 126 5 30 49 176 7 \
  6.  17 5 30 88 176 7 18 5 30 49 176 7 19 5 30 \
  7.  88 176 7 20 66 160 123 66 160 124 66 160 127 66 160 \
  8.  7 16 2 17 81 80 208 241 82 39 208 242 241 83 80 \
  9.  208 242 241 84 80 208 242 242 2 17 85 38 208 241 86 \
  10.  80 208 242 241 87 38 81 193 208 242 241 88 81 208 242 \
  11.  242 2 17 89 81 208 241 48 81 208 242 241 51 81 208 \
  12.  242 241 49 39 81 193 208 242 242 2 18 81 80 208 241 \
  13.  82 80 208 242 241 83 82 208 242 241 84 80 208 242 242 \
  14.  2 18 85 80 208 241 86 86 208 242 241 87 2 17 208 \
  15.  242 241 88 52 208 242 242 47 53 2 18 130 6 242 2 \
  16.  19 81 38 208 241 82 80 208 242 241 83 38 208 242 241 \
  17.  84 39 208 242 242 2 19 85 80 208 241 86 39 208 242 \
  18.  241 87 81 208 242 241 88 39 81 193 208 242 242 2 19 \
  19.  89 38 81 193 208 241 48 39 81 193 208 242 241 51 38 \
  20.  81 193 208 242 241 49 80 208 242 242 2 20 81 80 208 \
  21.  241 82 80 208 242 241 83 81 208 242 241 84 80 208 242 \
  22.  242 2 20 85 80 208 241 86 86 208 242 241 87 2 19 \
  23.  208 242 241 88 53 208 242 242 43 33 55 11 17 2 20 \
  24.  130 6 242 42 56 197 81 192 122 40 57 197 82 192 120 \
  25.  43 96 44 97 32 33 58 146 6 242 245] \
  26.     #( 10 12 #Border 11 'NULL' 'tb1' #initialize:withArray: 'Bdr1' 16rF0F0 16rFFF0 #( #ng #le #te #w #h #f #a #gt #gr #sr #txt #id )  ) ) >
  27.  
  28. <primitive 98 #PushButton \
  29.     <primitive 97 #PushButton #BoolGadget #Intuition/MyGadgets.st \
  30.     #(  #renderName #selectName ) \
  31.     #( #initialize:withArray:  ) \
  32.     temp 21 7 > >
  33.  
  34. temp <- <primitive 110 1 >
  35. <primitive 112 temp 1        " initialize:withArray: " \
  36.     #( #[ 34 81 177 115 34 82 177 116 34 83 177 117 34 84 177 \
  37.  118 34 85 177 119 34 86 177 120 34 87 177 121 34 88 \
  38.  177 122 34 89 177 125 34 48 177 126 34 49 177 127 66 \
  39.  160 123 66 160 124 66 160 7 16 66 160 7 17 2 16 \
  40.  51 52 130 5 242 43 33 54 11 17 55 130 5 242 2 \
  41.  17 56 57 130 5 242 44 33 58 11 17 59 130 5 242 \
  42.  41 60 197 61 181 246 7 41 62 197 63 192 241 121 242 \
  43.  42 3 16 197 84 192 122 40 3 17 197 82 192 120 43 \
  44.  96 44 97 32 33 3 18 146 5 242 245] \
  45.     #( 10 11 #Border 'tb1' #( 0 0 2 0 0 6 #( 0 #h 0 0 #w 0 #( #w -1 ) 1 1 1 1 #( #h -1 ) ) 'NULL' ) #initialize:withArray: 'Bdr1' #( 0 0 1 0 0 6 #( #w 0 #w #h 0 #h 1 #( #h -1 ) #( #w -1 ) #( #h -1 ) #( #w -1 ) 0 ) 'tb1' ) 'tb2' #( 0 0 1 0 0 6 #( 0 #h 0 0 #
  46.  0 #( #w -1 ) 1 1 1 1 #( #h -1 ) ) 'NULL' ) 'Bdr2' #( 0 0 2 0 0 6 #( #w 0 #w #h 0 #h 1 #( #h -1 ) #( #w -1 ) #( #h -1 ) #( #w -1 ) 0 ) 'tb2' ) 16r0F00 16r0800 16rF0FF 16r200 16rF0F0 16rFFF0 #( #ng #le #te #w #h #f #a #gt #gr #sr #txt #id #bs )  ) ) >
  47.  
  48. <primitive 98 #TextField \
  49.     <primitive 97 #TextField #StrGadget #Intuition/MyGadgets.st \
  50.     #(  #renderName #selectName ) \
  51.     #( #initialize:withArray:  ) \
  52.     temp 18 8 > >
  53.  
  54. temp <- <primitive 110 2 >
  55. <primitive 112 temp 1        " setProp:flags:vPot:vBody: " \
  56.     #( #[ 34 48 197 84 192 114 32 33 34 80 35 80 36 150 1 \
  57.  242 245] \
  58.     #( 16rFFF9 #setProps:flags:hPot:vPot:hBody:vBody:  ) ) >
  59.  
  60. <primitive 112 temp 2        " initialize:withArray: " \
  61.     #( #[ 34 81 177 115 34 82 177 116 34 83 177 117 34 84 177 \
  62.  118 34 85 177 119 34 86 177 120 34 87 177 121 34 88 \
  63.  177 122 34 89 177 125 34 48 177 126 34 49 177 127 34 \
  64.  50 177 7 16 34 51 177 7 17 68 160 123 68 160 124 \
  65.  68 160 7 18 68 160 7 19 2 18 53 54 130 7 242 \
  66.  43 33 56 11 17 57 130 7 242 2 19 58 59 130 7 \
  67.  242 44 33 60 11 17 61 130 7 242 47 62 197 84 192 \
  68.  127 42 63 197 83 192 122 40 3 16 197 82 192 120 43 \
  69.  96 44 97 32 33 3 17 146 7 242 245] \
  70.     #( 10 11 12 13 #Border 'tb1' #( 0 0 2 0 0 6 #( 0 #h 0 0 #w 0 #( #w -1 ) 1 1 1 1 #( #h -1 ) ) 'NULL' ) #initialize:withArray: 'Bdr1' #( 0 0 1 0 0 6 #( #w 0 #w #h 0 #h 1 #( #h -1 ) #( #w -1 ) #( #h -1 ) #( #w -1 ) 0 ) 'tb1' ) 'tb2' #( 0 0 1 0 0 6 #( 0 #h
  71. 0 0 #w 0 #( #w -1 ) 1 1 1 1 #( #h -1 ) ) 'NULL' ) 'Bdr2' #( 0 0 2 0 0 6 #( #w 0 #w #h 0 #h 1 #( #h -1 ) #( #w -1 ) #( #h -1 ) #( #w -1 ) 0 ) 'tb2' ) 16rFFF9 16rF0F0 16rFFF0 #( #ng #le #te #w #h #f #a #gt #gr #sr #txt #id #pf 0 #vp 0 #vb )  ) ) >
  72.  
  73. <primitive 98 #VertSlider \
  74.     <primitive 97 #VertSlider #PropGadget #Intuition/MyGadgets.st \
  75.     #(  #renderName #selectName ) \
  76.     #( #setProp:flags:vPot:vBody: #initialize:withArray:  ) \
  77.     temp 20 8 > >
  78.  
  79. temp <- <primitive 110 2 >
  80. <primitive 112 temp 1        " setProp:flags:hPot:hBody: " \
  81.     #( #[ 34 48 197 82 192 114 32 33 34 35 80 36 80 150 1 \
  82.  242 245] \
  83.     #( 16rFFF9 #setProps:flags:hPot:vPot:hBody:vBody:  ) ) >
  84.  
  85. <primitive 112 temp 2        " initialize:withArray: " \
  86.     #( #[ 34 81 177 115 34 82 177 116 34 83 177 117 34 84 177 \
  87.  118 34 85 177 119 34 86 177 120 34 87 177 121 34 88 \
  88.  177 122 34 89 177 125 34 48 177 126 34 49 177 127 34 \
  89.  50 177 7 16 34 51 177 7 17 68 160 123 68 160 124 \
  90.  68 160 7 18 68 160 7 19 2 18 53 54 130 7 242 \
  91.  43 33 56 11 17 57 130 7 242 2 19 58 59 130 7 \
  92.  242 44 33 60 11 17 61 130 7 242 47 62 197 82 192 \
  93.  127 42 63 197 83 192 122 40 3 16 197 82 192 120 43 \
  94.  96 44 97 32 33 3 17 146 7 242 245] \
  95.     #( 10 11 12 13 #Border 'tb1' #( 0 0 2 0 0 6 #( 0 #h 0 0 #w 0 #( #w -1 ) 1 1 1 1 #( #h -1 ) ) 'NULL' ) #initialize:withArray: 'Bdr1' #( 0 0 1 0 0 6 #( #w 0 #w #h 0 #h 1 #( #h -1 ) #( #w -1 ) #( #h -1 ) #( #w -1 ) 0 ) 'tb1' ) 'tb2' #( 0 0 1 0 0 6 #( 0 #h
  96. 0 0 #w 0 #( #w -1 ) 1 1 1 1 #( #h -1 ) ) 'NULL' ) 'Bdr2' #( 0 0 2 0 0 6 #( #w 0 #w #h 0 #h 1 #( #h -1 ) #( #w -1 ) #( #h -1 ) #( #w -1 ) 0 ) 'tb2' ) 16rFFF9 16rF0F0 16rFFF0 #( #ng #le #te #w #h #f #a #gt #gr #sr #txt #id #pf #hp 0 #hb 0 )  ) ) >
  97.  
  98. <primitive 98 #HorizSlider \
  99.     <primitive 97 #HorizSlider #PropGadget #Intuition/MyGadgets.st \
  100.     #(  #renderName #selectName ) \
  101.     #( #setProp:flags:hPot:hBody: #initialize:withArray:  ) \
  102.     temp 20 8 > >
  103.  
  104.